home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
graphics
/
fxforge
/
page_curl
< prev
next >
Wrap
Text File
|
1999-06-15
|
2KB
|
33 lines
Category: Filter Factory Gallery Q
Title: Page Turn...
Copyright: Copyright © 1997 Mario Klingemann
Author: Mario Klingemann
Filename: ffq07gal.8bf
R:put(val(0,Y,X+Y),0),put(sin(val(1,-1024,1024)+scl(x+y,get(0)-Y,get(0),-512,512)),1),x+y>get(0)?scl(x+y,get(0),get(0)+val(2,0,Y),ctl(3),255):(x>get(0)-Y)&&(y>get(0)-X)?255-(255-mix(scl(get(1),-512,512,0,255),0,ctl(6),255))*(255-(mix(src(X-(y-(get(0)-X)+scl(get(1),-512,512,0,val(7,0,get(0)))),Y-(x-(get(0)-Y)+scl(get(1),-512,512,0,val(7,0,get(0)))),z),255,ctl(4),255)*scl(get(1),-512,512,ctl(5),255))/255)/255:c
G:x+y>get(0)?scl(x+y,get(0),get(0)+val(2,0,Y),ctl(3),255):(x>get(0)-Y)&&(y>get(0)-X)?255-(255-mix(scl(get(1),-512,512,0,255),0,ctl(6),255))*(255-(mix(src(X-(y-(get(0)-X)+scl(get(1),-512,512,0,val(7,0,get(0)))),Y-(x-(get(0)-Y)+scl(get(1),-512,512,0,val(7,0,get(0)))),z),255,ctl(4),255)*scl(get(1),-512,512,ctl(5),255))/255)/255:c
B:x+y>get(0)?scl(x+y,get(0),get(0)+val(2,0,Y),ctl(3),255):(x>get(0)-Y)&&(y>get(0)-X)?255-(255-mix(scl(get(1),-512,512,0,255),0,ctl(6),255))*(255-(mix(src(X-(y-(get(0)-X)+scl(get(1),-512,512,0,val(7,0,get(0)))),Y-(x-(get(0)-Y)+scl(get(1),-512,512,0,val(7,0,get(0)))),z),255,ctl(4),255)*scl(get(1),-512,512,ctl(5),255))/255)/255:c
A:a
ctl[0]: Edge Position
ctl[1]: Lighting
ctl[2]: Drop Shadow
ctl[3]: Intensity
ctl[4]: Backside
ctl[5]: Shadow Strength
ctl[6]: Highlight Strength
ctl[7]: Distortion
val[0]: 96
val[1]: 169
val[2]: 87
val[3]: 87
val[4]: 120
val[5]: 152
val[6]: 31
val[7]: 0